Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/HYP/H-I/Hollow Text Stack.cpt/Hollow Text Stack/card_2960.txt

Text File | 1989-04-19 | 6KB | 248 lines

-- card: 2960 from stack: in
-- bmap block id: 2210
-- flags: 0000
-- background id: 2711
-- name:
----- HyperTalk script -----
on closeCard
  set the scroll of card field "left column" to 0
  put empty into card field "right column"
end closeCard

on mouseUp
  global theLine,theChoice
  set the textFont of btn ">> Copy >>" to "Chicago Hollow"
  set the textFont of btn "Remove" to "Chicago Hollow"
  put empty into theLine
  put empty into theChoice
end mouseUp

function clickLine
return ((the mouseV - item 2 of the rect of the target+the scroll of the target-4) div the textheight of the target) + 1
end clickLine



-- part 1 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=299 top=29 right=51 bottom=377
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Beep 3
----- HyperTalk script -----
on mouseUp
  if the textFont of me is "Chicago hollow" then
    exit mouseUp
  else
    beep 3
    pass mouseUp
  end if
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=249 top=34 right=47 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Enable >>
----- HyperTalk script -----
on mouseUp
  set the textFont of button 1 to "Chicago"
  set the autohilite of button 1 to true
  pass mouseUp
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=382 top=34 right=47 bottom=429
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: << Disable
----- HyperTalk script -----
on mouseUp
  set the textFont of button 1 to "Chicago hollow"
  set the autohilite of button 1 to false
  pass mouseUp
end mouseUp



-- part 4 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=46 top=212 right=326 bottom=190
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Left Column
----- HyperTalk script -----
on mouseUp
  global theChoice,theLine
  put clickLine() into theLine
  set the textFont of btn id 6 to Chicago
  select line theLine of me
  put the selectedLine into theChoice
end mouseUp



-- part 5 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=321 top=212 right=326 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Right Column
----- HyperTalk script -----
on mouseUp
  global theChoice,theLine
  put clickLine() into theLine
  if line theLine of me is empty then
    delete line theLine of me
    exit mouseUp
  end if
  set the textFont of btn id 10 to "Chicago"
  select line theLine of me
  put the selectedLine into theChoice
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=207 top=216 right=238 bottom=307
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 226
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: >> Copy >>
----- HyperTalk script -----
on mouseUp
  global theChoice,theLine
  if the textFont of the target is "Chicago Hollow" then exit mouseUp
  if theChoice is empty then exit mouseUp
  put the value of theChoice & return after card field "right column"
  put empty into theChoice
  set the textFont of the target to "Chicago Hollow"
end mouseUp



-- part 8 (field)
-- low flags: 00
-- high flags: 2002
-- rect: left=36 top=59 right=196 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 10 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=207 top=245 right=267 bottom=307
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 226
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Remove
----- HyperTalk script -----
on mouseUp
  global theChoice,theLine
  if the textFont of the target is "Chicago Hollow" then exit mouseUp
  if theChoice is empty then exit mouseUp
  delete line theLine of card field "right column"
  put empty into theChoice
  set the textFont of the target to "Chicago Hollow"
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=441 top=31 right=51 bottom=466
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual barn door close
  go home
end mouseUp



-- part contents for card part 4
----- text -----
Dickinson
Donne
Eliot
Emerson
Frost
Herbert
Hopkins
Millay
Milton
Pound
Rexroth
Shakespeare
Thomas
Watts
Whitman
Yeats


-- part contents for card part 8
----- text -----
 This stack contains a font called “Chicago Hollow” which is the font of disabled buttons and menu items in the standard Macintosh interface. You can install it in any stack with the Font/DA Mover. Chicago Hollow may be used to make HyperCard buttons act more like standard Macintosh buttons; see the scripts of the buttons on this card (and the script of the card itself) for examples.
5 September 1988
Bob O’Hara, 26 Oxford Street, Cambridge, Mass. 02138